home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / AmigaTalk / testfiles / TestNewMenu < prev    next >
Text File  |  2002-10-27  |  2KB  |  79 lines
  1. intuition  <- Intuition new
  2.  
  3. scr <- Screen new
  4. scr setScreenModeID: 16r40D20001
  5. scr open: 'Testing GadTools Menus:'
  6.  
  7. win <- Window new: 'Select a Menu Item...'
  8.  
  9. win setFlags: ((intuition getWindowFlag: #WFLG_ACTIVATE) \
  10.               + (intuition getWindowFlag: #WFLG_CLOSEGADGET))
  11.  
  12. win setIDCMPFlags: ((intuition getIDCMPFlag: #IDCMP_MENUPICK) \
  13.                    + (intuition getIDCMPFlag: #IDCMP_CLOSEWINDOW))
  14.  
  15. win openOnScreen: scr
  16.  
  17. menu <- NewMenus new
  18.  
  19. menu allocateNewMenu: 3
  20.  
  21. menu1 <- menu initMenuArray: intuition title: 'PROJECT' key: nil flags: 0 exclude: 0 data: 0
  22.  
  23. menu2 <- menu initMenuItemArray: intuition title: 'Test NewMenu handler' \
  24.                             key: 'T'       flags: 0    exclude: 0 \
  25.                            data: #sampleMethod:forMenuCommand:callback:
  26.  
  27. menu fillNewMenuItem: 1 with: menu1
  28. menu fillNewMenuItem: 2 with: menu2
  29. menu fillNewMenuItem: 3 with: (menu endOfMenuArray: intuition)
  30.  
  31. createTags <- Array new: 3
  32.  
  33. createTags at: 1 put: (intuition getGadToolAttr: #GTMN_FrontPen)
  34. createTags at: 2 put: 0
  35. createTags at: 3 put: (intuition specialTag: #TAG_DONE)
  36.  
  37. menuStrip <- menu createMenuStrip: createTags
  38.  
  39. layoutTags <- Array new: 1
  40.  
  41. layoutTags at: 1 put: (intuition specialTag: #TAG_DONE)
  42.  
  43. junk <- menu getVisualInfo: scr tags: layoutTags
  44.  
  45. chk2 <- menu initializeMenus: layoutTags
  46.  
  47. ('initializeMenus: returned ', (chk2 asString) print)
  48.  
  49. menu registerTo: win
  50.  
  51. win addMenuStrip: menuStrip
  52.  
  53. scr screenToFront
  54.  
  55. rval <- String new
  56.  
  57. rval <- menu waitForMenuUserData
  58.  
  59. scr screenToBack
  60.  
  61. ('UserData is: ', rval) print
  62.  
  63. win changeTitle: 'Select the same Menu Item again...'
  64. scr screenToFront
  65.  
  66. rval <- menu waitForMenuString
  67.  
  68. scr screenToBack
  69.  
  70. ('Menu String is: ', rval ) print
  71.  
  72. win close
  73. scr close
  74.  
  75. menu freeVisualInfo
  76. menu disposeMenu
  77.  
  78. ('   Done with TestNewMenu!') print
  79.